dim args :args =inputbox("new width =?",args,"")
args = ucase(trim(args))
if args<>"" then
	'create file
	Dim fileContent
	fileContent = "Application.ExecuteCommand(""Properties"")" & chr(13) & chr(10)
	fileContent = fileContent & "TracePropertiesDlg.Width = " & chr(34) & args & chr(34) & chr(13) & chr(10)
	fileContent = fileContent & "TracePropertiesDlg.Ok.Click()"	

	dim tempFile
	tempFile = application.activedocument.path & "\tmp1.mcr"
	Dim fso,fw
	Set fso = CreateObject("Scripting.FileSystemObject")
	set fw = fso.createtextfile(tempFile, True)
	fw.write fileContent
	fw.close
	set fw = nothing
	Application.RunMacro(tempFile)
	fso.deletefile(tempFile,true)
	set fso =nothing	
end if
